home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d2.adf / SYSPROG / Intuitextdemo.p < prev    next >
Text File  |  1990-11-01  |  998b  |  28 lines
  1. Program IntuiTextDemo;
  2. {$incl"intuition.lib" }
  3. Var
  4.  Win: ^Window;
  5.  t1,t2,t3: IntuiText;
  6. Begin
  7.  OpenLib(IntBase,'intuition.library',0); { ist hier nötig, da ja die
  8.     Funktion "PrintIText" aus der intuition.library benutzt wird }
  9.  Win:=Open_Window(0,0,640,200,1,0,$1007,'Textausgabe',Nil,100,100,640,200);
  10.     { wie fast schon gewohnt ein Fenster öffnen }
  11.  t1:=IntuiText(1,0,1,0,0,Nil,'Dies ist der erste Text.',Nil);
  12.     { Das Record "t1" wird hier initialisiert. Falls Sie sich über
  13.       die Syntax wundern, lesen Sie bitte im Kapitel "Literale für
  14.       Arrays und Records" nach. }
  15.  PrintIText(Win^.RPort,   { Zeiger auf den Rastport unseres Windows }
  16.              ^t1,          { Zeiger auf t1 }
  17.              10,20);       { Position }
  18.  
  19.  t2:=IntuiText(3,0,1,0, 0,Nil,'Zeile 2',^t3);
  20.  t3:=IntuiText(3,0,4,0,10,Nil,'Zeile 3',Nil);
  21.  
  22.  PrintIText(Win^.RPort, ^t2, 10, 40); { "t2" enthält einen Zeiger auf
  23.     "t3", so daß hier beide Texte ausgegeben werden. }
  24.  
  25.  Delay(100);
  26.  Close_Window(Win)
  27. End.
  28.